home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Util / Md-Mz / MultiLoad.cpt / MultiLoad
Encoding:
Text File  |  1988-03-05  |  5.8 KB  |  131 lines  |  [TEXT/MACA]
  1. (The following lines of text are considered comments by Red Ryder, so they   )
  2. (will not be compiled into the MultiLoad Procedure.)
  3. ( )
  4. (A little explanation follows showing you how to make this procedure work    )
  5. for your particular set up.)
  6. ( )
  7. (This procedure file will work from any of the menus on GEnie where you have )
  8. (to pick a number to download, upload, list directory, etc.  For example the )
  9. (Main menu in CMUG, FreeSoft, MacPro, etc.  I have personally tested this    )
  10. (procedure on the above GEnie User menus, and it works for every one.  The   )
  11. (procedure will download XMODEM or Plain 7 bit text files, it will know how  )
  12. (to do either one.  A "fake" file name is made up for every file it will     )
  13. (download, so as to have a name to save the files on your disk.  Don't       )
  14. (worry, all XMODEM files are renamed to their original names by Red Ryder,   )
  15. (unless they are XMODEM TEXT files, if possible.  The "fake" names work like )
  16. (this:  The first file downloaded will be called "1File", the second one     )
  17. (will be called "2File", etc., without the quotes.  Original huh?  The       )
  18. (number in front of the word "File", will be incremented by one, every time  )
  19. (this procedure downloads a new file.  This will insure that each file has a )
  20. (unique name.  The only time that these file names will actually be used, is )
  21. (when you get a TEXT file, be it XMODEM or 7 bit.  ALL 7 bit files are       )
  22. (considered TEXT files by the Mac, and will be named one of the "fake" file  )
  23. (names.  You'll have to sort them out by yourself as to what they contain or )
  24. (what they should be named, after you get them all downloaded.)
  25. ( )
  26. (Now to the meat of how to get this procedure to work for you.)
  27. ( )
  28. (First, you need to create a plain TEXT file that will contain the program   )
  29. (NUMBERS that you want this procedure to download for you.  Example:         )
  30. (           792  <CR>                                                        )
  31. (           794  <CR>                                                        )
  32. (           113  <CR>                                                        )
  33. (           etc.                                                             )
  34. ( )
  35. (Of course all these numbers should be on a line by them selves, with no     )
  36. (spaces, parenthesis, or blank lines in between the numbers. Each number     )
  37. (MUST end with a carriage return.  Now at the very last line of text in this )
  38. (file of numbers, you need to put the word - "DONE"  with NO quotes and the  )
  39. (word MUST be in capital letters. This word, "DONE" MUST follow the numbers  )
  40. (just as if it were a number itself. The word "DONE" must also be followed   )
  41. (by a carriage return.  Save this plain TEXT file anywhere on your disk, and )
  42. (with any name you choose.  Now all that we have left to do is change one    )
  43. (pathname, and your ready to go.  This procedure, by the way, should be      )
  44. (executed only when you are at a MUG Main menu, and it will type 6 for       )
  45. (download, then go into its loop of downloading file numbers from the TEXT   )
  46. (file, until it reaches the word "DONE".  It will then navigate back to the  )
  47. (MUG Main menu and then type "BYE", and you will be logged of of the GEnie   )
  48. (network.  If you don't want it to log you off the GEnie network, you will   )
  49. (have get rid of the line that say: "TYPE BYE^M", in this procedure, before  )
  50. (you compile it. Now as for the Pathname that must be changed.  The line     )
  51. (that reads: "USEROPENI 1,HD-20:Log - ons:Down Files" below, must have the   )
  52. (pathname changed to the pathname of your disk, and the name of the TEXT     )
  53. (file that you saved the download numbers. Any folders that your TEXT file   )
  54. (is in will also have to be listed as part of the pathname if you are using  )
  55. (HFS, which MOST people are using by now surely.)
  56. ( )
  57. (That's about all there is to it except for actually compiling this file.  A )
  58. (little note of interest, I just have a macro key so I can log on to any of  )
  59. (my favorite mugs, and then have a macro set up with the name of this        )
  60. (procedure, then I just have to click on two keys to get on GEnie and start  )
  61. (getting files.  I also have macros set up that will log me on straight to a )
  62. (MUG, then call this procedure to start getting files.  What ever way you    )
  63. (want to do it, just make sure that you are at the MUG Main menu before this )
  64. (procedure starts to execute.)
  65. ( )
  66. (If you have any comments or questions about this procedure, leave me mail   )
  67. (on GEnie under the address: S.BUCHEN  I will try to help in any way I can!)
  68. ( )
  69. (Now, on to the procedure!)
  70. USERCLOSE 1
  71. (The following pathname must be changed to your particular disk & file name.)
  72. USEROPENI 1,HD-20:Log - ons:Down Files
  73. ERASE A$
  74. LET EQUAL A%,0
  75. ERASE B$
  76. USERREAD 1,A$
  77. TYPE 6^M
  78. JUMPTO START
  79. :ANOTHER
  80. TYPE Y^M
  81. :START
  82. PROMPT file?
  83. PAUSE 20
  84. TYPE A$
  85. TYPE ^M
  86. PROMPT <D>ownload
  87. PAUSE
  88. TYPE D^M
  89. ALERT1 Capture File **/JUMPTO GETTEXT
  90. PROMPT receive file.
  91. GOSUB DONAME
  92. PAUSE
  93. RECX B$
  94. PROMPT <RETURN>?
  95. PAUSE 20
  96. TYPE ^M
  97. :MORE
  98. PROMPT file (Y/N)?
  99. PAUSE 20
  100. USERREAD 1,A$
  101. CONTAINS A$,DONE
  102. IF NO JUMPTO ANOTHER
  103. TYPE N^M
  104. PROMPT <H>elp?
  105. PAUSE 20
  106. (The following line must be deleted if you don't want logged off GEnie after )
  107. (the downloads are completed.)
  108. TYPE BYE^M
  109. END
  110. :GETTEXT
  111. GOSUB DONAME
  112. PAUSE 120
  113. RECA B$
  114. TYPE ^M
  115. (The reason for the following 2 prompts right in a row like this, is so that )
  116. (the text file that was being downloaded would not accidently be closed.  I  )
  117. (didn't want to have a freak line from the text being downloaded to just so  )
  118. (happen to be close to the one GEnie puts out to let you know to close your  )
  119. (capture file.  Don't worry though, because this DOES work like it's         )
  120. (supposed to, and DOES close the file when GEnie actually wants it to.)
  121. PROMPT Download complete.  
  122. PROMPT rn off Capture File.
  123. CLOSE
  124. JUMPTO MORE
  125. (These lines make the "1File", "2File", etc...)
  126. :DONAME
  127. ADD A%,1
  128. NUMTOSTRING A%,B$
  129. CONCAT B$,File
  130. RETURN
  131.